home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / STRTHV64.BIN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  600b  |  22 lines
  1. 70 REM ** STRING THING (VIC & C64) **
  2. 80 REM **     JIM BUTTERFIELD      **
  3. 90 REM STRING MUST BE FIRST VARIABLE
  4. 100 A$="ABCDEFGHIJKLMNOPQ"
  5. 110 A$=A$+A$+A$+A$+A$
  6. 120 A$=A$+A$+A$
  7. 130 REM ABOVE SETS STRING FOR MAX (255)
  8. 200 DATA 160,2,177,45,153,137,0,200,192,6
  9. 210 DATA 208,246,162,1,32,198,255
  10. 220 DATA 32,228,255,201,13,240,15,164,142,145
  11. 230 DATA 140,200,132,142,196,139,240,4,165,144,240,234,76,204,255
  12. 250 FORJ=896TO937:READX:POKEJ,X:T=T+X:NEXTJ
  13. 260 IFT<>6120THENSTOP
  14. 400 OPEN1,8,2,"TOUGH DATA"
  15. 410 REM:  NEXT SYS SAME AS 'INPUT#1,A$'
  16. 420 SYS896
  17. 425 REM:  L=SIZE OF INPUT (COULD BE 0)
  18. 430 L=PEEK(142)
  19. 440 PRINT LEFT$(A$,L)
  20. 450 IF ST=0 GOTO 420
  21. 460 CLOSE 1
  22.